home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Server / delete_method.al < prev    next >
Encoding:
Text File  |  2008-11-04  |  635 b   |  28 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Server.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Server;
  5.  
  6. #line 1868 "blib/lib/RPC/XML/Server.pm (autosplit into blib/lib/auto/RPC/XML/Server/delete_method.al)"
  7. sub delete_method
  8. {
  9.     my $self = shift;
  10.     my $name = shift;
  11.  
  12.     if ($name)
  13.     {
  14.         if ($self->{__method_table}->{$name})
  15.         {
  16.             delete $self->{__method_table}->{$name};
  17.             return $self;
  18.         }
  19.     }
  20.     else
  21.     {
  22.         return ref($self) . "::delete_method: No such method $name";
  23.     }
  24. }
  25.  
  26. # end of RPC::XML::Server::delete_method
  27. 1;
  28.